home *** CD-ROM | disk | FTP | other *** search
/ Chip: Net Guide / CHIP NET Rehberi Eylül 1998.iso / ftp / iftp21 / EXAMPLES.ZIP / EXAM13.FTP < prev    next >
Encoding:
Text File  |  1997-12-20  |  1.7 KB  |  69 lines
  1. //
  2. // NOTE: interactive keyboard script commands was disabled in iFTP v2.0
  3. //       due to OS compatibility problems. It will be added once it is
  4. //       fully tested for Win 95 and Win NT 3.51/4.0
  5. //
  6. // Script illustrating the following commands:
  7. //
  8. //    Readkey
  9. //    ChoiceKey <chars> [delay]
  10. //    if lastkey <char> then
  11. //    if readkey <char> then
  12. //    if keypressed then
  13. //
  14.  
  15.  
  16.      Write "Step 1: Waiting for key pressed... "
  17. label keyloop1
  18.      if not keypressed then goto keyloop1
  19.      Readkey
  20.      Writeln Key Pressed! char = "%lastchar%"  code = %lastkey%
  21.  
  22.  
  23.      Write "Step 2: Press ANY KEY to continue... "
  24.      if ReadKey <cr> then begin
  25.         writeln Carriage return hit!
  26.      else
  27.         Writeln Key pressed! char = "%lastchar%"  code = %lastkey%
  28.      endif
  29.  
  30.  
  31.      Write "Step 3: Waiting for key pressed.. "
  32. label keyloop3
  33.      if not keypressed then goto keyloop3
  34.      Readkey
  35.      Writeln Key pressed! char = "%lastchar%"  code = %lastkey%
  36.  
  37. //
  38. // Lets wait for a Y or N character, infinite wait
  39. //
  40.  
  41.      Write "Step 4: Press N or Y: "
  42.      ChoiceKey NY
  43.      if lastkey N then writeln N was pressed
  44.      if lastkey Y then writeln Y was pressed
  45.  
  46. //
  47. // Do it again but with a 10 second timeout
  48. //
  49.  
  50.  
  51.      Write "Step 5: Press N or Y (10 sec wait) : "
  52.      ChoiceKey NY 10 secs
  53.      if lastkey N then writeln N was pressed
  54.      if lastkey Y then writeln Y was pressed
  55.  
  56. //
  57. // Do it again using <cr> as a default
  58. //
  59.  
  60.  
  61.  
  62.      Write "Step 6: Press [Y] [n] : "
  63.      ChoiceKey NY<cr>
  64.      if lastkey <cr> then writeln ENTER was hit. Default is N
  65.      if lastkey N then writeln N was pressed
  66.      if lastkey Y then writeln Y was pressed
  67.  
  68.      Writeln done!
  69.